(defn fizz-buzz [n]
  (cond
    (= (mod n 15) 0)
    "FizzBuzz"
    (= (mod n 5) 0)
    "Buzz"
    (= (mod n 3) 0)
    "Fizz"
    :else
    n))


(println (->> (range 1 50) (map fizz-buzz) (interpose ", ") (apply str)))
